program main_program
	implicit none
	!fungsi eksternal
	DOUBLE PRECISION hitung_epsilon_mesin, form1A, contoh, contoh_aksen, contoh_double_aksen
	external hitung_epsilon_mesin, bagi_dua_1, bagi_dua_2, newton_raphson_1, form1A, regula_falsi, contoh, contoh_aksen, contoh_double_aksen
	!variabel
	DOUBLE PRECISION epsilon_mesin, galat, eps, delta, a, b, c
	parameter (eps=1.E-5, galat=1.E-5, delta=1.E-6)
	!hitung epsilon_mesin
	epsilon_mesin = hitung_epsilon_mesin()
	a = 0
	b = 1
	call regula_falsi(contoh, a, b, c, eps, epsilon_mesin, delta)
	print*,"Solusi : ",c
end